home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagineutilities.dms / imagineutilities.adf / IMTGuide / IMTguide.rexx < prev    next >
OS/2 REXX Batch file  |  1994-10-31  |  30KB  |  622 lines
  1. /*
  2.                         IMTguide.rexx v1.0  31-Oct-94
  3.        Create Texture.guide from Imagine 3.0 texture.txt & litetex.txt
  4.           Sample pics, Guide layout and Inspiration by Randy R. Wall
  5.                           An ARexx hack by D.F. Duck
  6.  
  7. */
  8. options results
  9. signal on syntax
  10. signal on break_c
  11.  
  12. max_wid = 75   /* max chars wide to trim text down to */
  13.  
  14. if ~show('L',"rexxsupport.library") then do
  15.   if addlib('rexxsupport.library',0,-30,0) then nop
  16.   else do
  17.     say 'Can''t find the rexxsupport.library!'
  18.     exit 10
  19.   end
  20. end
  21.  
  22. cls='0C'x;nl='0A'x;more=0;icon='Yes';req_wrap=0   /* init a few vars */
  23.  
  24. call Title
  25. say center('Press CTRL-C at any time to abort.',77)nl
  26. call delay(10)
  27. call Q1
  28. call Q2
  29. call Q3
  30.  
  31. Edit:
  32. say cls
  33. say ' 1.  Write Texture.guide to  >> 'gui_path
  34. say ' 2.  Move sample pictures to >> 'pic_path
  35. say ' 3.  Your SHOW program is... >> 'show_cmd
  36. say ' 4.  Icon for Texture.guide  >> 'icon
  37. say
  38. say ' Q.  Quit'
  39. say
  40. options prompt ' Number to edit or RETURN to accept. >> '
  41. pull ans
  42. say cls
  43. select
  44.   when ans='' then signal Ask4Disk
  45.   when ans='Q' then signal Die
  46.   when ans=1 then call Q1
  47.   when ans=2 then call Q2
  48.   when ans=3 then call Q3
  49.   when ans=4 then call Q4
  50.   otherwise nop
  51. end
  52. signal Edit
  53.  
  54. Q1:  /* get user path to write output file to */
  55. options prompt 'Path to write the Texture.guide to.   >> '
  56. parse pull path
  57. if ~exists(path) then do
  58.   options prompt 'Path "'path'" does not exist.  Create it? (Y/n/q)? '
  59.   pull ans
  60.   if ans='Q' then signal Die
  61.   if ans='Y' | ans='' then do
  62.     call makedir(path)
  63.     if ~exists(path) then do
  64.       say 'There seems to be a problem creating "'path'".'
  65.       signal Q1
  66.     end
  67.   end
  68.   if ans='N' then signal Q1
  69. end
  70. if path~='' then gui_path=path
  71. if right(gui_path,1) ~=':' & right(gui_path,1) ~='/' then gui_path=gui_path'/'
  72. return
  73.  
  74. Q2:  /* get user path to move pic files to */
  75. options prompt 'Path to move the sample pictures to.  >> '
  76. parse pull path
  77. if ~exists(path) then do
  78.   options prompt 'Path "'path'" does not exist.  Create it? (Y/n/q)? '
  79.   pull ans
  80.   if ans='Q' then signal Die
  81.   if ans='Y' | ans='' then do
  82.     call makedir(path)
  83.     if ~exists(path) then do
  84.       say 'There seems to be a problem creating "'path'".'
  85.       signal Q2
  86.     end
  87.   end
  88.   if ans='N' then signal Q2
  89. end
  90. if path~='' then pic_path=path
  91. if right(pic_path,1) ~=':' & right(pic_path,1) ~='/' then pic_path=pic_path'/'
  92. return
  93.  
  94. Q3:  /* get full path and filename to users SHOW program */
  95. options prompt 'Path & filename of your SHOW program. >> '
  96. parse pull cmd
  97. if ~exists(cmd) then do
  98.   say 'I don''t find 'cmd'. Try again.'
  99.   signal Q3
  100. end
  101. if cmd~='' then show_cmd=cmd
  102. return
  103.  
  104. Q4: /* toggle icon creation for Texture.guide */
  105. if icon='Yes' then icon='No'
  106. else if icon='No' then icon='Yes'
  107. return
  108.  
  109. Ask4Disk: /* check for disk - note you don't need to press return! */
  110. call pragma('W','N')       /* turn off requesters */
  111. if ~exists('ram:litetex.txt') then do
  112.   say cls||center('Insert Imagine 3.0 install "DISK1" in any drive.',77)
  113.   do loop = 1
  114.     if exists('DISK1:') then leave loop
  115.   end
  116.   say center('Copying litetex.txt to RAM:',77)
  117.   shell command('copy DISK1:litetex.txt ram:')
  118. end
  119. if ~exists('ram:texture.txt') then do
  120.   say cls||center('Insert Imagine 3.0 install "DISK3" in any drive.',77)
  121.   do loop = 1
  122.     if exists('DISK3:') then leave loop
  123.   end
  124.   say center('Extracting texture.txt to ram:',77)
  125.   old_dir = pragma('D') ; call pragma('D','ram:')
  126.   shell command('DISK3:lharc x DISK3:IM30_3.LZH texture.txt')
  127.   call pragma('D',old_dir) ; drop old_dir
  128. end
  129.  
  130. say cls||center('Ok, now just sit back for a few minutes while I do my magic.',77)
  131. call delay(120)
  132.  
  133. /* Move sample pics */
  134. say cls||center('Moving sample pictures to 'pic_path,77)
  135. if ~exists('pics/') then do
  136.   say center('Error: Can''t find the sample pics directory.',77)
  137.   say center('Be sure your current directory is where you unarched IMTguide.lha to.',77)
  138.   options prompt copies(' ',28)'Continue anyway (y/N)? '
  139.   parse pull ans
  140.   if upper(ans) ~='Y' then signal Die
  141.   else signal Main
  142. end
  143. shell command('copy >nil: pics 'pic_path' ALL')
  144. shell command('delete >nil: pics ALL')
  145.  
  146. Main: /* Open output file for writing, write Main node */
  147. say cls||center('Writing 'gui_path'Texture.guide',77)
  148. say center('Reading ram:texture.txt',77)
  149. call open(y,gui_path'Texture.guide','W')
  150. call writeln(y,'@database Texture.guide'nl'@index TextureAll')
  151. call writeln(y,'@author Created by IMTguide.rexx v1.0 by Randy R. Wall & D.F. Duck'nl)
  152.  
  153.  
  154. call node('Main','Imagine 3.0 Texture Guide')
  155. call writeln(y,copies(' ',18)'AmigaGuide For Imagine 3.0 Textures'nl)
  156. call writeln(y,copies(' ',22)'@{"    About This Database    " link "About"}'nl||nl)
  157. call writeln(y,copies(' ',22)'@{"   What Are 3.0 Textures   " link "Textures"}')
  158. call writeln(y,copies(' ',22)'@{" Overall Notes On Textures " link "Notes"}'nl)
  159. call writeln(y,'     @{"    Space Filling Textures   " link "SpaceFilling"}      @{"Specific Application Textures" link "SpecificApplication"}')
  160. call writeln(y,'     @{"         2D Textures         " link "2D_Textures"}      @{"     Animatable Textures     " link "Animatable"}')
  161. call writeln(y,'     @{" Specific Primative Textures " link "SpecificPrims"}      @{"        Fog Textures         " link "Fog"}'nl)
  162. call writeln(y,copies(' ',22)'@{"      Light Textures       " link "Lights"}'nl)
  163. call writeln(y,'     @{"    Texture List  (index)    " link "TextureAll"}      @{"      View Sample Pics       " link "View_Pics"}')
  164. call endnode
  165. call anatine('52656164206D65207769746820416D6967614775696465')
  166.  
  167. /* open texture.txt file for reading */
  168. call open(x,'RAM:texture.txt','R')
  169.  
  170. /* Textures node */
  171. line=readln(x)
  172. call node('Textures',strip(line,'T','0D'x))
  173. call waste(1)
  174. count=26 ;call copy_text
  175. call endnode
  176.  
  177. /* Over all texture notes */
  178. call waste(1)
  179. call node('Notes',strip(readln(x),'T','0D'x))
  180. count=30 ;call copy_text
  181. call endnode
  182. call anatine('546861742052616E647920697320612072617974726163696E67206E757421')
  183.  
  184. /* Space Filling Textures */
  185. call waste(2)
  186. call node('SpaceFilling',strip(readln(x),'T','0D'x':'))
  187. call writeln(y,copies(nl,3)copies(' ',13)'@{"     Agate      " link "Agate"} @{"    EasyWood    " link "EasyWood"} @{"    Peened      " link "Peened"}')
  188. call writeln(y,copies(' ',13)'@{"    Brushed     " link "Brushed"} @{"     Fakely     " link "Fakely"} @{"    Rainbow     " link "Rainbow"}')
  189. call writeln(y,copies(' ',13)'@{"    BumpNoiz    " link "BumpNoiz"} @{"    FrogSkin    " link "FrogSkin"} @{"    Scratch     " link "Scratch"}')
  190. call writeln(y,copies(' ',13)'@{"    ColorNoiz   " link "ColrNoiz"} @{"     Jersey     " link "Jersey"} @{"    Splotch     " link "Splotch"}')
  191. call writeln(y,copies(' ',13)'@{"    Concrete    " link "Concrete"} @{"    Leather     " link "Leather"} @{"    StainGls    " link "StainGls"}')
  192. call writeln(y,copies(' ',13)'@{"    Confetti    " link "Confetti"} @{"    Marble      " link "Marble"} @{"    Statue      " link "Statue"}')
  193. call writeln(y,copies(' ',13)'@{"    Crumpled    " link "Crumpled"} @{"    Monster     " link "Monster"} @{"     Terra      " link "Terra"}')
  194. call writeln(y,copies(' ',13)'@{"    DinoSkin    " link "DinoSkin"} @{"    Mosaic      " link "Mosaic"} @{"    WormVein    " link "WormVein"}')
  195. call writeln(y,copies(' ',13)'@{"      Dirt      " link "Dirt"} @{"  Noiz2 Family  " link "Noiz2_Family"} @{"    Wrinkle     " link "Wrinkle"}')
  196. call writeln(y,copies(' ',13)'@{"    DrtPaint    " link "DrtPaint"} @{"    Pebbled     " link "Pebbled"} @{"     Zooloo     " link "Zooloo"}')
  197. call endnode
  198. call anatine('517561636B212020517561636B21')
  199.  
  200. my_arg = '1 Agate 26'        ;call write_node
  201. my_arg = '2 Brushed 33'        ;call write_node
  202. my_arg = '2 BumpNoiz 23'    ;call write_node
  203. my_arg = '2 ColrNoiz 51'    ;call write_node
  204. my_arg = '2 Concrete 25'    ;call write_node
  205. my_arg = '2 Confetti 37'    ;call write_node
  206. my_arg = '2 Crumpled 41'    ;call write_node
  207. my_arg = '1 DinoSkin 45'    ;call write_node
  208. my_arg = '1 Dirt 25'        ;call write_node
  209. my_arg = '2 DrtPaint 29'    ;call write_node
  210. my_arg = '2 EasyWood 27'    ;call write_node
  211. my_arg = '1 Fakely 24'        ;call write_node
  212. my_arg = '2 FrogSkin 30'    ;call write_node
  213. my_arg = '2 Jersey 23'        ;call write_node
  214. my_arg = '2 Leather 18'        ;call write_node
  215. my_arg = '1 Marble 28'        ;call write_node
  216. my_arg = '2 Monster 41'        ;call write_node
  217. my_arg = '1 Mosaic 38'        ;call write_node
  218.  
  219. /* Noiz2 Family */
  220. call waste(1)
  221. call node('Noiz2_Family',strip(readln(x),'T','0D'x))
  222. call waste(1)
  223. count=27 ;call copy_text
  224. call writeln(y,nl||copies(' ',13)'@{"   ClrNoize2    " link "ClrNoiz2"} @{"    RefNoiz2    " link "RefNoiz2"} @{"    FilNoiz2    " link "FilNoiz2"}')
  225. call endnode
  226. my_arg = '1 ClrNoiz2 2'        ;call write_node
  227. my_arg = '1 RefNoiz2 2'        ;call write_node
  228. my_arg = '1 FilNoiz2 2'        ;call write_node
  229.  
  230. /* now back to more space filling textures */
  231. my_arg = '1 Pebbled 41'        ;call write_node
  232. my_arg = '1 Peened 37'        ;call write_node
  233. my_arg = '1 Rainbow 24'        ;call write_node
  234. my_arg = '1 Scratch 41'        ;call write_node
  235. my_arg = '1 Splotch 26'        ;call write_node
  236. my_arg = '2 StainGls 40'    ;call write_node
  237. my_arg = '1 Statue 40'        ;call write_node
  238. my_arg = '2 Terra 39'        ;call write_node
  239. my_arg = '2 WormVein 30'    ;call write_node
  240. my_arg = '2 Wrinkle 27'        ;call write_node
  241. my_arg = '2 Zooloo 37'        ;call write_node
  242.  
  243. /* 2D Textures */
  244. call waste(3)
  245. call node('2D_Textures',strip(readln(x),'T','0D'x':'))
  246. call writeln(y,copies(nl,4))
  247. call writeln(y,copies(' ',14)'@{"     BathTile     " link "BathTile"}           @{"     Stamped     " link "Stamped"}')
  248. call writeln(y,copies(' ',14)'@{"      Blast       " link "Blast"}           @{"     TriChex     " link "TriChex"}')         
  249. call writeln(y,copies(' ',14)'@{"     BmpBrnch     " link "BmpBrnch"}           @{"      Tracer     " link "Tracer"}')
  250. call writeln(y,copies(' ',14)'@{"     Branches     " link "Branches"}           @{"     TriTile     " link "TriTile"}')
  251. call writeln(y,copies(' ',14)'@{"     Shingles     " link "Shingles"}           @{"      Weave      " link "Weave"}')
  252. call endnode
  253. my_arg = '1 BathTile 48'    ;call write_node
  254. my_arg = '2 Blast 31'        ;call write_node
  255. my_arg = '2 BmpBrnch 31'    ;call write_node
  256. my_arg = '2 Branches 30'    ;call write_node
  257. my_arg = '2 Shingles 38'    ;call write_node
  258. my_arg = '1 Stamped 39'        ;call write_node
  259. my_arg = '2 TriChex 35'        ;call write_node
  260. my_arg = '1 Tracer 24'        ;call write_node
  261. my_arg = '2 TriTile 29'        ;call write_node
  262. my_arg = '2 Weave 36'        ;call write_node
  263. call anatine('4D7920666565742061726520666C61742E')
  264.  
  265. /* Specific Primative Textures */
  266. call waste(3)
  267. call node('SpecificPrims',strip(readln(x),'T','0D'x':'))
  268. call writeln(y,copies(nl,2))
  269. call writeln(y,copies(' ',15)'@{"  Checks Family    " link "Checks_Family"}       @{" DeathStar Family " link "DeathStar_Family"}')
  270. call writeln(y,copies(' ',19)'@{" RectChex " link "RectChex"}                @{" DethStar " link "DethStar"}')
  271. call writeln(y,copies(' ',19)'@{" RadCheks " link "RadCheks"}                @{" RdDthStr " link "RdDthStr"}')
  272. call writeln(y,copies(' ',19)'@{" SprlChex " link "SprlChex"}'nl)
  273. call writeln(y,copies(' ',30)'@{" Plaid Texture " link "Plaid"}'nl)
  274. call writeln(y,copies(' ',15)'@{" Honey Comb Family " link "Honey_Comb_Family"}       @{"  Window Family   " link "Window_Family"}')
  275. call writeln(y,copies(' ',19)'@{" HonyComb " link "HonyComb"}                @{" RadWind  " link "RadWind"}')
  276. call writeln(y,copies(' ',19)'@{" RadComb  " link "RadComb"}                @{" RectWind " link "RectWind"}')
  277. call writeln(y,copies(' ',19)'@{"  Hexez   " link "Hexez"}                @{" TubeWind " link "TubeWind"}')
  278. call endnode
  279.  
  280. /* Checks Family */
  281. call waste(1)
  282. call node('Checks_Family',strip(readln(x),'T','0D'x':'))
  283. req_wrap=1 ;count=33 ;call copy_text
  284. call writeln(y,nl||copies(' ',9)'@{" RectChex Texture " link "RectChex"} @{" RadCheks Texture " link "RadCheks"} @{" SprlChex Texture " link "SprlChex"}')
  285. call endnode
  286. my_arg = '2 RectChex 18'    ;call write_node
  287. my_arg = '1 RadCheks 20'    ;call write_node
  288. my_arg = '2 SprlChex 22'    ;call write_node
  289.  
  290. call waste(2)
  291. call node('DeathStar_Family',strip(readln(x),'T','0D'x':'))
  292. count=34 ;call copy_text
  293. call writeln(y,nl||copies(' ',15)'@{" DethStar Texture " link "DethStar"}       @{" RdDthStr Texture " link "RdDthStr"}')
  294. call endnode
  295. my_arg = '2 DethStar 7'        ;call write_node
  296. my_arg = '1 RdDthStr 12'    ;call write_node
  297.  
  298. call waste(2)
  299. call node('Honey_Comb_Family',strip(readln(x),'T','0D'x':'))
  300. count=23 ;call copy_text
  301. call writeln(y,nl||copies(' ',13)'@{" HonyComb Texture " link "HonyComb"} @{" Hexez Texture " link "Hexez"} @{" RadComb Texture " link "RadComb"}')
  302. call endnode
  303. my_arg = '2 HonyComb 1'        ;call write_node
  304. my_arg = '2 RadComb 1'        ;call write_node
  305. my_arg = '2 Hexez 1'        ;call write_node
  306.  
  307. /* Plaid Texture */
  308. my_arg = '2 Plaid 30'        ;call write_node
  309.  
  310. /* Window Family */
  311. call waste(1)
  312. call node('Window_Family',strip(readln(x),'T','0D'x':'))
  313. count=52 ;call copy_text
  314. call writeln(y,nl||copies(' ',8)'@{" RadWind Texture " link "RadWind"} @{" RectWind Texture " link "RectWind"} @{" TubeWind Texture " link "TubeWind"}')           
  315. call endnode
  316. my_arg = '2 RadWind 16'        ;call write_node
  317. my_arg = '1 RectWind 11'    ;call write_node
  318. my_arg = '1 TubeWind 16'    ;call write_node
  319.  
  320. /* Specific Application Textures */
  321. call waste(3)
  322. call node('SpecificApplication',strip(readln(x),'T','0D'x':'))
  323. call writeln(y,copies(nl,4)copies(' ',16)'@{"    Antique    " link "Antique"}              @{"      Iris      " link "Iris"}')
  324. call writeln(y,copies(' ',16)'@{"    CndyAppl   " link "CndyAppl"}              @{"    LensFlar    " link "LensFlar"}')
  325. call writeln(y,copies(' ',16)'@{"    CoolFir    " link "CoolFir"}              @{"     Metals     " link "Metals"}')
  326. call writeln(y,copies(' ',16)'@{"     Cracks    " link "Cracks"}              @{"    MntnTop     " link "MntnTop"}')
  327. call writeln(y,copies(' ',16)'@{"    DashLine   " link "DashLine"}              @{"     Ribbed     " link "Ribbed"}')
  328. call writeln(y,copies(' ',16)'@{"    FireBall   " link "FireBall"}              @{"    SftStrip    " link "SftStrip"}')
  329. call writeln(y,copies(' ',16)'@{"    GasGiant   " link "GasGiant"}              @{"    Transpar    " link "Transpar"}')
  330. call writeln(y,copies(' ',16)'@{"    HardWood   " link "HardWood"}              @{"    Venitian    " link "Venitian"}')
  331. call writeln(y,copies(' ',16)'@{"    HrdStrip   " link "HrdStrip"}              @{"    Z Buffer    " link "Z_Buffer"}')
  332. call endnode
  333. my_arg = '1 Antique 31'        ;call write_node
  334. my_arg = '1 CndyAppl 11'    ;call write_node
  335. my_arg = '1 CoolFir 22'        ;call write_node
  336. my_arg = '1 Cracks 39'        ;call write_node
  337. my_arg = '2 DashLine 37'    ;call write_node
  338. my_arg = '2 FireBall 37'    ;call write_node
  339. my_arg = '2 GasGiant 53'    ;call write_node
  340. my_arg = '1 HardWood 35'    ;call write_node
  341. my_arg = '2 HrdStrip 22'    ;call write_node
  342. my_arg = '1 Iris 39'        ;call write_node
  343. my_arg = '1 LensFlar 29'    ;call write_node
  344. my_arg = '1 Metals 26'        ;call write_node
  345. my_arg = '1 MntnTop 26'        ;call write_node
  346. my_arg = '1 Ribbed 36'        ;call write_node
  347. my_arg = '2 SftStrip 33'    ;call write_node
  348. my_arg = '1 Transpar 27'    ;call write_node
  349. my_arg = '1 Venitian 13'    ;call write_node
  350. req_wrap=1
  351. my_arg = '2 Z_Buffer 15'    ;call write_node
  352.  
  353. call waste(27) /* dump the FORMAT: stuff */
  354. call anatine('576861742061206D65737321')
  355.  
  356. /* Amimatable Textures */ 
  357. call node('Animatable',strip(readln(x),'T','0D'x':'))
  358. call writeln(y,copies(nl,4)copies(' ',31)'@{"  BeamMeUp  " link "BeamMeUp"}')
  359. call writeln(y,copies(' ',31)'@{"  DancSprk  " link "DancSprk"}')
  360. call writeln(y,copies(' ',31)'@{"  DripDrop  " link "DripDrop"}')
  361. call writeln(y,copies(' ',31)'@{"    Rain    " link "Rain"}')
  362. call writeln(y,copies(' ',31)'@{"    Spark   " link "Spark"}')
  363. call writeln(y,copies(' ',31)'@{"   TieDye   " link "TieDye"}')
  364. call endnode
  365. my_arg = '1 BeamMeUp 36'    ;call write_node
  366. my_arg = '2 DancSprk 38'    ;call write_node
  367. my_arg = '2 DripDrop 27'    ;call write_node
  368. my_arg = '2 Rain 41'        ;call write_node
  369. my_arg = '2 Spark 27'        ;call write_node
  370. my_arg = '2 TieDye 27'        ;call write_node
  371.  
  372. /* Fog Textures */
  373. call waste(3)
  374. call node('Fog',strip(readln(x),'T','0D'x':'))
  375. call writeln(y,copies(nl,4)copies(' ',28)'@{"   Ghost Texture  " link "Ghost"}')
  376. call writeln(y,copies(' ',28)'@{"  FogTop Texture  " link "FogTop"}')
  377. call writeln(y,copies(' ',28)'@{" FogPaint Texture " link "FogPaint"}')
  378. call writeln(y,copies(' ',28)'@{"  Nebula Texture  " link "Nebula"}')
  379. call endnode
  380. my_arg = '1 Ghost 22'        ;call write_node
  381. my_arg = '2 FogTop 28'        ;call write_node
  382. my_arg = '2 FogPaint 31'    ;call write_node
  383. my_arg = '2 Nebula 34'        ;call write_node
  384. call anatine('4469727479204475636B20776173206865726521')
  385.  
  386. call close(x)                /* all done with texture.txt    */
  387. call delete('RAM:texture.txt')
  388.  
  389. call open(x,'ram:litetex.txt','R')    /* open litetex.txt for reading */
  390. say '1B'x'[2H'center('Reading ram:litetex.txt',77)
  391. /* Light Textures */
  392. call node('Lights',strip(readln(x),'T','0D'x':'))
  393. call writeln(y,copies(nl,5)copies(' ',16)'@{"  FrnchWin - French Windows Light Texture  " link "FrnchWin"}')
  394. call writeln(y,copies(' ',16)'@{"   SoftEdge - Soft Edge Lighting Texture   " link "SoftEdge"}')
  395. call writeln(y,copies(' ',16)'@{"     Strobe - Strobe Lighting Texture      " link "Strobe"}')
  396. call writeln(y,copies(' ',16)'@{" VenLite - Venitian Blind Lighting Texture " link "VenLite"}')
  397. call endnode
  398.  
  399. call waste(3)
  400. call node('FrnchWin',strip(readln(x),'T','0D'x':'))
  401. req_wrap=1 ;count=17 ;call copy_text
  402. call endnode
  403.  
  404. call waste(3)
  405. call node('SoftEdge',strip(readln(x),'T','0D'x':'))
  406. req_wrap=1 ;count=12 ;call copy_text
  407. call endnode
  408.  
  409. call waste(3)
  410. call node('Strobe',strip(readln(x),'T','0D'x':'))
  411. req_wrap=1 ;count=19 ;call copy_text
  412. call endnode
  413.  
  414. call waste(3)
  415. call node('VenLite',strip(readln(x),'T','0D'x':'))
  416. req_wrap=1 ;count=18 ;call copy_text
  417. call endnode
  418.  
  419. call close(x)                /* all done with litetex.txt    */
  420. call delete('RAM:litetex.txt')
  421. say '1B'x'[2H'center(' ',77)
  422.  
  423. /* About */
  424. call node('About','About This Database')
  425. call writeln(y,copies(' ',8)'This AmigaGuide database was created with IMLguide.rexx v1.0')
  426. call writeln(y,copies(' ',10)'Sample pics, Guide layout and Inspiration by Randy R. Wall')
  427. call writeln(y,copies(' ',26)'An ARexx hack by D.F. Duck')
  428. call writeln(y,copies(' ',25)'Beta Tested By: Randy R. Wall'nl||nl)
  429. call writeln(y,' This AmigaGuide database was made to facilitate the proccess of finding')
  430. call writeln(y,' and learning to use the many textures available in Imagine 3.0.')
  431. call writeln(y,' Other people have converted the texture.txt file into AmigaGuide hyper-')
  432. call writeln(y,' text format, but they could not distribute it due to Impulses'' copyright')
  433. call writeln(y,' on the text. But it is perfectly legal to write a program to convert your')
  434. call writeln(y,' legal copy of the text. So, that is what we did.'nl||nl)
  435. call writeln(y,' To discuss raytracing with "RANDY WALL", or ARexx hacking with "DIRTY')
  436. call writeln(y,' DUCK" call -Duck off and Fly- BBS:  916 899-9811  300-14.4k baud.'nl)
  437. call writeln(y,' o AmigaGuide is © Copyright 1990-1993 by;'nl)
  438. call writeln(y,' Commodore-Amiga, Inc.'copies(nl,2))
  439. call writeln(y,' o ARexx is © Copyright 1987 by;'nl)
  440. call writeln(y,'   William S. Hawes   P.O. Box 308   Maynard, MA  01754'nl)
  441. call writeln(y,'   508 568-8695'copies(nl,2))
  442. call writeln(y,' o Imagine 3.0 ,texture.txt & litetex.txt files are © Copyright 1994 by;'nl)
  443. call writeln(y,'   Impulse Inc.  8416 Xerxes Ave. North  Minneapolis, MN  55444'nl)
  444. call writeln(y,'   612 425-0557')
  445. call endnode
  446.  
  447. /* TextureAll (Index) */
  448. call node('TextureAll','Imagine 3.0 Textures')
  449. call writeln(y,'@{" Noiz2 Fmly " link "Noiz2_Family"} @{" Checks Fmly " link "Checks_Family"} @{" DeathStar Fmly " link "DeathStar_Family"} @{" HoneyComb Fmly " link "Honey_Comb_Family"} @{" WindowFmly " link "Window_Family"}')
  450. call writeln(y,copies(' ',9)'@{" Agate     " link "Agate"} @{" Jersey   " link "Jersey"} @{" Wrinkle  " link "Wrinkle"} @{" CndyAppl " link "CndyAppl"} @{" Transpar " link "Transpar"}')
  451. call writeln(y,copies(' ',9)'@{" Brushed   " link "Brushed"} @{" Leather  " link "Leather"} @{" Zooloo   " link "Zooloo"} @{" CoolFir  " link "CoolFir"} @{" Venitian " link "Venitian"}')
  452. call writeln(y,copies(' ',9)'@{" BumpNoiz  " link "BumpNoiz"} @{" Marble   " link "Marble"} @{" BathTile " link "BathTile"} @{" Cracks   " link "Cracks"} @{" Z Buffer " link "Z_Buffer"}')
  453. call writeln(y,copies(' ',9)'@{" ColorNoiz " link "ColrNoiz"} @{" Monster  " link "Monster"} @{" Blast    " link "Blast"} @{" DashLine " link "DashLine"} @{" BeamMeUp " link "BeamMeUp"}')
  454. call writeln(y,copies(' ',9)'@{" Concrete  " link "Concrete"} @{" Mosaic   " link "Mosaic"} @{" BmpBrnch " link "BmpBrnch"} @{" FireBall " link "FireBall"} @{" DancSprk " link "DancSprk"}')
  455. call writeln(y,copies(' ',9)'@{" Confetti  " link "Confetti"} @{" Pebbled  " link "Pebbled"} @{" Branches " link "Branches"} @{" GasGiant " link "GasGiant"} @{" DripDrop " link "DripDrop"}')
  456. call writeln(y,copies(' ',9)'@{" Crumpled  " link "Crumpled"} @{" Peened   " link "Peened"} @{" Shingles " link "Shingles"} @{" HardWood " link "HardWood"} @{" Rain     " link "Rain"}')
  457. call writeln(y,copies(' ',9)'@{" DinoSkin  " link "DinoSkin"} @{" Rainbow  " link "Rainbow"} @{" Stamped  " link "Stamped"} @{" HrdStrip " link "HrdStrip"} @{" Spark    " link "Spark"}')
  458. call writeln(y,copies(' ',9)'@{" Dirt      " link "Dirt"} @{" Scratch  " link "Scratch"} @{" Tracer   " link "Tracer"} @{" Iris     " link "Iris"} @{" TieDye   " link "TieDye"}')
  459. call writeln(y,copies(' ',9)'@{" DrtPaint  " link "DrtPaint"} @{" Splotch  " link "Splotch"} @{" TriChex  " link "TriChex"} @{" LensFlar " link "LensFlar"} @{" Ghost    " link "Ghost"}')
  460. call writeln(y,copies(' ',9)'@{" EasyWood  " link "EasyWood"} @{" StainGls " link "StainGls"} @{" TriTile  " link "TriTile"} @{" Metals   " link "Metals"} @{" FogTop   " link "FogTop"}')
  461. call writeln(y,copies(' ',9)'@{" Fakely    " link "Fakely"} @{" Statue   " link "Statue"} @{" Weave    " link "Weave"} @{" MntnTop  " link "MntnTop"} @{" FogPaint " link "FogPaint"}')
  462. call writeln(y,copies(' ',9)'@{" FrogSkin  " link "FrogSkin"} @{" Terra    " link "Terra"} @{" Plaid    " link "Plaid"} @{" Ribbed   " link "Ribbed"} @{" Nebula   " link "Nebula"}')
  463. call writeln(y,copies(' ',21)'@{" WormVein " link "WormVein"} @{" Antique  " link "Antique"} @{" SftStrip " link "SftStrip"}')
  464. call endnode
  465.  
  466. /* View Sample Pics */
  467. cmd=show_cmd' 'pic_path
  468. call node('View_Pics','View Sample Texture Pictures')
  469. call writeln(y,'@{" Noiz2 Fmly " link "Noiz2_View"} @{" Checks Fmly " link "Checks_View"} @{" DeathStar Fmly " link "DeathStar_View"} @{" HoneyComb Fmly " link "HoneyComb_View"} @{" WindowFmly " link "Window_View"}')
  470. call writeln(y,copies(' ',9)'@{" Agate     " system "'cmd'Agate.pic"} @{" Jersey   " system "'cmd'Jersey.pic"} @{" Wrinkle  " system "'cmd'Wrinkle.pic"} @{" CndyAppl " system "'cmd'CndyAppl.pic"} @{" Transpar " system "'cmd'Transpar.pic"}')
  471. call writeln(y,copies(' ',9)'@{" Brushed   " system "'cmd'Brushed.pic"} @{" Leather  " system "'cmd'Leather.pic"} @{" Zooloo   " system "'cmd'Zooloo.pic"} @{" CoolFir  " system "'cmd'CoolFir.pic"} @{" Venitian " system "'cmd'Venitian.pic"}')
  472. call writeln(y,copies(' ',9)'@{" BumpNoiz  " system "'cmd'BumpNoiz.pic"} @{" Marble   " system "'cmd'Marble.pic"} @{" BathTile " system "'cmd'BathTile.pic"} @{" Cracks   " system "'cmd'Cracks.pic"} @{" Z Buffer " system "'cmd'Z_Buffer.pic"}')
  473. call writeln(y,copies(' ',9)'@{" ColorNoiz " system "'cmd'ColrNoiz.pic"} @{" Monster  " system "'cmd'Monster.pic"} @{" Blast    " system "'cmd'Blast.pic"} @{" DashLine " system "'cmd'DashLine.pic"} @{" BeamMeUp " system "'cmd'BeamMeUp.pic"}')
  474. call writeln(y,copies(' ',9)'@{" Concrete  " system "'cmd'Concrete.pic"} @{" Mosaic   " system "'cmd'Mosaic.pic"} @{" BmpBrnch " system "'cmd'BmpBrnch.pic"} @{" FireBall " system "'cmd'FireBall.pic"} @{" DancSprk " system "'cmd'DancSprk.pic"}')
  475. call writeln(y,copies(' ',9)'@{" Confetti  " system "'cmd'Confetti.pic"} @{" Pebbled  " system "'cmd'Pebbled.pic"} @{" Branches " system "'cmd'Branches.pic"} @{" GasGiant " system "'cmd'GasGiant.pic"} @{" DripDrop " system "'cmd'DripDrop.pic"}')
  476. call writeln(y,copies(' ',9)'@{" Crumpled  " system "'cmd'Crumpled.pic"} @{" Peened   " system "'cmd'Peened.pic"} @{" Shingles " system "'cmd'Shingles.pic"} @{" HardWood " system "'cmd'HardWood.pic"} @{" Rain     " system "'cmd'Rain.pic"}')
  477. call writeln(y,copies(' ',9)'@{" DinoSkin  " system "'cmd'DinoSkin.pic"} @{" Rainbow  " system "'cmd'Rainbow.pic"} @{" Stamped  " system "'cmd'Stamped.pic"} @{" HrdStrip " system "'cmd'HrdStrip.pic"} @{" Spark    " system "'cmd'Spark.pic"}')
  478. call writeln(y,copies(' ',9)'@{" Dirt      " system "'cmd'Dirt.pic"} @{" Scratch  " system "'cmd'Scratch.pic"} @{" Tracer   " system "'cmd'Tracer.pic"} @{" Iris     " system "'cmd'Iris.pic"} @{" TieDye   " system "'cmd'TieDye.pic"}')
  479. call writeln(y,copies(' ',9)'@{" DrtPaint  " system "'cmd'DrtPaint.pic"} @{" Splotch  " system "'cmd'Splotch.pic"} @{" TriChex  " system "'cmd'TriChex.pic"} @{" LensFlar " system "'cmd'LensFlar.pic"} @{" Ghost    " system "'cmd'Ghost.pic"}')
  480. call writeln(y,copies(' ',9)'@{" EasyWood  " system "'cmd'EasyWood.pic"} @{" StainGls " system "'cmd'StainGls.pic"} @{" TriTile  " system "'cmd'TriTile.pic"} @{" Metals   " system "'cmd'Metals.pic"} @{" FogTop   " system "'cmd'FogTop.pic"}')
  481. call writeln(y,copies(' ',9)'@{" Fakely    " system "'cmd'Fakely.pic"} @{" Statue   " system "'cmd'Statue.pic"} @{" Weave    " system "'cmd'Weave.pic"} @{" MntnTop  " system "'cmd'MntnTop.pic"} @{" FogPaint " system "'cmd'FogPaint.pic"}')
  482. call writeln(y,copies(' ',9)'@{" FrogSkin  " system "'cmd'FrogSkin.pic"} @{" Terra    " system "'cmd'Terra.pic"} @{" Plaid    " system "'cmd'Plaid.pic"} @{" Ribbed   " system "'cmd'Ribbed.pic"} @{" Nebula   " system "'cmd'Nebula.pic"}')
  483. call writeln(y,copies(' ',21)'@{" WormVein " system "'cmd'WormVein.pic"} @{" Antique  " system "'cmd'Antique.pic"} @{" SftStrip " system "'cmd'SftStrip.pic"}')
  484. call endnode
  485.  
  486. /* View "Family" Sample Pics */
  487. call node('Noiz2_View','Noiz2 Family Sample Pictures')
  488. call writeln(y,nl||copies(' ',13)'@{"   ClrNoize2    " system "'cmd'ClrNoiz2.pic"} @{"    RefNoiz2    " system "'cmd'RefNoiz2.pic"} @{"    FilNoiz2    " system "'cmd'FilNoiz2.pic"}')
  489. call endnode
  490. call node('Checks_View','Checks Family Sample Pictures')
  491. call writeln(y,nl||copies(' ',9)'@{" RectChex Texture " system "'cmd'RectChex.pic"} @{" RadCheks Texture " system "'cmd'RadCheks.pic"} @{" SprlChex Texture " system "'cmd'SprlChex.pic"}')
  492. call endnode
  493. call node('DeathStar_View','DeathStar Family Sample Pictures')
  494. call writeln(y,nl||copies(' ',15)'@{" DethStar Texture " system "'cmd'DethStar.pic"}       @{" RdDthStr Texture " system "'cmd'RdDthStr.pic"}')
  495. call endnode
  496. call node('HoneyComb_View','HoneyComb Family Sample Pictures')
  497. call writeln(y,nl||copies(' ',13)'@{" HonyComb Texture " system "'cmd'HonyComb.pic"} @{" Hexez Texture " system "'cmd'Hexez.pic"} @{" RadComb Texture " system "'cmd'RadComb.pic"}')
  498. call endnode
  499. call node('Window_View','Window Family Sample Pictures')
  500. call writeln(y,nl||copies(' ',8)'@{" RadWind Texture " system "'cmd'RadWind.pic"} @{" RectWind Texture " system "'cmd'RectWind.pic"} @{" TubeWind Texture " system "'cmd'TubeWind.pic"}')           
  501. call endnode
  502.  
  503. if icon='Yes' then do
  504.   say '1B'x'[4H'center('- Creating Icon -',77)
  505.   shell command('copy icon 'gui_path'Texture.guide.info')
  506. end
  507. call delete('icon')
  508.  
  509. /***** procedures & subroutines *****/
  510.  
  511. Die: /* Clean up and exit */
  512. call close x
  513. call close y
  514. call Title
  515. exit
  516.  
  517. Title:
  518. say cls||sourceline(2)
  519. do i = 3 to 5
  520.   say sourceline(i)
  521. end
  522. call delay(60)
  523. say
  524. return
  525.  
  526. /* The cat is fat. The dog is with the cat. My feet are flat. */
  527. anatine: procedure
  528. parse arg quack
  529. call writeln(y,'0A202020204F3C20517561636B212020'x||x2c(quack))
  530. call writeln(y,'202A3D3D0A20205E0A'x)
  531. return
  532.  
  533. node: procedure
  534. parse arg node_name,node_title
  535. node_title=strip(node_title,'L',' ')
  536. say '1B'x'[4H'center('- 'node_title' -',77)
  537. call writeln(y,'@node "'node_name'" "'strip(center('- 'node_title' -',67),'T',' ')'"')
  538. return
  539.  
  540. waste: procedure /* dump blank and unwanted lines in the bit bucket */
  541. arg count
  542. do for count
  543.   call readln(x)
  544. end
  545. return
  546.  
  547. copy_text:  /* copy text from texture.txt to Texture.guide */
  548. wrap=''
  549. do i= 1 to count
  550.   if length(wrap) >max_wid then do
  551.     line=' 'wrap
  552.     call do_wrap
  553.   end
  554.   line=' 'wrap||strip(readln(x),'B','0D20'x)
  555.  
  556.   if index(line,'Requester:')>0 then do  /* separate Requester: lines */
  557.     req_wrap=1
  558.     if last_len<1 then call writeln(y,'')
  559.   end
  560.   if word(line,1)='Type:' then do
  561.     line=line' 'strip(readln(x),'B','0D'x' ')
  562.     i=(i+1)
  563.   end
  564.   else if (req_wrap) & index(line,':') >0 & length(line)>index(line,':') then do
  565.     if last_len>1 then call writech(y,nl)
  566.     call writeln(y,left(line,index(line,':')))
  567.     line = ' 'strip(right(line,length(line)-index(line,':')),'L',' ')
  568.     line = line' 'strip(readln(x),'B','0D'x' ')
  569.     i=(i+1)
  570.   end
  571.   wrap=''
  572.   if length(line) >max_wid then call do_wrap
  573.   else call writeln(y,line)
  574.   last_len = length(compress(line))
  575.   if i=count then return
  576. end
  577.  
  578. do_wrap:
  579. new_len = lastpos(' ',line,max_wid)
  580. wrap = right(line,(length(line)-new_len))' '
  581. wrap_len=length(wrap)
  582. call writeln(y,left(line,new_len-1))
  583. return
  584.  
  585. sample: procedure /* make button to show sample pic */
  586. parse arg picture
  587. line=strip(readln(x),'T','0D'x)
  588. if last_len>1 then call writeln(y,'')
  589. call writeln(y,' @{" sample object " system "'picture'"}:')
  590. call writech(y,' 'strip(right(line,length(line)-index(line,':')),'L',' '))
  591. return
  592.  
  593. write_node: /* write node text to output */
  594. parse var my_arg waste_num' 'node_txt' 'copy_num
  595. say '1B'x'[4H'center('- 'node_txt' -',77)
  596. pic_name=node_txt'.pic'
  597. call waste(waste_num)
  598. call node(node_txt,strip(readln(x),'T','0D'x))
  599. count=copy_num ;call copy_text
  600. call sample(show_cmd' 'pic_path||pic_name)
  601. if node_txt='TriChex' | node_txt='TriTile' | node_txt='Antique' then,
  602. call writeln(y,strip(readln(x),'B','0D'x' '))
  603. else call writeln(y,'')
  604. call endnode
  605. return
  606.  
  607. endnode:
  608. call writeln(y,'@endnode'nl)
  609. req_wrap=0
  610. return
  611.  
  612. break_c:
  613. signal Die
  614.  
  615. syntax:
  616. say 'Uh oh. Syntax error on line number 'SIGL
  617. say errortext(rc)
  618. say sourceline(SIGL)
  619. say
  620. say 'Call 916 899-9811 (bbs) and report the error to Dirty Duck.'
  621. exit
  622.